<%
Response.CodePage=936
Response.Charset="GB2312"
Session.CodePage = 936

dim Conn,sql,rs,db,connstr
db = Server.MapPath("#Dasi#2@123.accdb")
Set Conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & db
Conn.open connstr
set rs = server.CreateObject("adodb.recordset")
%>
